home *** CD-ROM | disk | FTP | other *** search
/ Capture the Power of the Internet / Capture the Power of the Internet.iso / mac / MacFiles / MultimediaTools / Audio-Visual / betterplay.sit / BetterPlayer 1.0.2 / source / source.00.6 / Windows.INCL / Windows.INCL
Encoding:
Text File  |  2000-02-02  |  1.4 KB  |  76 lines  |  [TEXT/FB^e]
  1. LOCAL FN ShowWindow(myWindowTitle$)
  2. myWindowPtr& = FN FRONTWINDOW
  3. CALL GETWTITLE(myWindowPtr&,myGetTitle$)
  4. LONG IF myGetTitle$ <> myWindowTitle$
  5. DO
  6. myWindowPtr& = [myWindowPtr& + _nextWindow]
  7. CALL GETWTITLE(myWindowPtr&,myGetTitle$)
  8. UNTIL myGetTitle$ = myWindowTitle$
  9. END IF
  10. CALL SELECTWINDOW(myWindowPtr&)
  11. END FN
  12.  
  13. local fn AjustMovieSettngs
  14. long if fn GetMovieLoop (gMovieBlock&)
  15. menu 3,5,_checked
  16. xelse
  17. menu 3,5,_enable
  18. end if
  19.  
  20. long if fn GetMovieAutoPlay (gMovieBlock&)
  21. menu 3,6,_checked
  22. xelse
  23. menu 3,6,_enable
  24. end if
  25. end fn
  26.  
  27. local fn ListWindows
  28.  
  29. myMenu& = FN GETMHANDLE(5)
  30. myItemNumbers=FN COUNTMITEMS(myMenu&)
  31.  
  32. long if window(_activeWnd)
  33. menu 3,0,_enable
  34. menu 1,3,_enable
  35. menu 1,4,_enable
  36. menu 1,5,_enable
  37. menu 1,6,_enable
  38. FOR myNextDelItem = 1 TO myItemNumbers
  39. CALL DELMENUITEM(myMenu&,myNextDelItem)
  40. NEXT
  41. xelse
  42. menu 5,1,_disable,"None"
  43. menu 3,0,_disable
  44. menu 1,3,_disable
  45. menu 1,4,_disable
  46. menu 1,5,_disable
  47. menu 1,6,_disable
  48. END IF
  49.  
  50. myNextItem = 1
  51. FOR myid = 1 TO 63
  52. x$ = fn GetMovieName$ (gMovieBlock&,myid)
  53. long if len(x$)
  54. MENU 5,myNextItem,_enable,(x$)
  55. myWindowH& = FN FRONTWINDOW
  56. CALL GETWTITLE(myWindowH&,myGetTitle$)
  57. LONG IF myGetTitle$ = (x$)
  58. MENU 5,myNextItem,_checked
  59. END IF
  60. INC(myNextItem)
  61. END IF
  62. NEXT
  63. end fn
  64.  
  65. local fn CloseAMovie
  66. FN CloseMovie(gMovieBlock&,WINDOW(1))
  67. fn ListWindows
  68. end fn
  69.  
  70. local fn Show1Window (ItemID%)
  71. myMenu& = FN GETMHANDLE(5)
  72. CALL GETITEM(myMenu&,ItemID%,myMenuTitle$)
  73. FN ShowWindow(myMenuTitle$)
  74. end fn
  75.  
  76.